home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / STRONGARM / APPCOMPP.BAS < prev    next >
BASIC Source File  |  1996-10-02  |  4KB  |  88 lines
  1. 0END=TOP+&2000:P=PAGE:WH.P?1<>255:IFP?4=95P?4=&DC
  2. 1P+=P?3:ENDW.:DIMC 64,Y 64,O 16,S 16,U 16,K 256:$O="Extract to?"
  3. 2PROCb(C,63,"&E"):PROCb(K,123,""):READX,I,D$,$S,G
  4. 3$U=D$:SYS262336,200,!K,O:SYS262337,,K+4TO!K
  5. 4ONERRORPROCe:RUN
  6. 5SYS262341,,K:REP.SYS262343,1,K TOR
  7. 6IF(R=17ORR=18)A.K!16=0SYS262365:END
  8. 7IFR=6PROCc EL.IFR%=2SYS262341,,K
  9. 8IFR=3SYS262365:END EL.IFR=7PROCf
  10. 9IF(R=17ORR=18)A.K!16=2A.K!36<>-1PROCg
  11. 10U..
  12. 11DEFPROCg:N$="":N=K+44:WH.?N>31:N$+=CHR$?N
  13. 12N+=1:ENDW.:PROCa(N$):SYS262365:END
  14. 13DEFPROCf
  15. 14SYS262351,,K+28:K!20=K!40:K!24=K!44:K!36=999
  16. 15K!40=G%:$(K+44)=D$:!K=56:K!12=0:K!16=1
  17. 16SYS262375,17,K,K!20,K!24:E.
  18. 17DEFPROCe
  19. 18DIMK 256,Q 16:$Q="Extractor":!K=ERR
  20. 19$(K+4)=REPORT$+" ("+STR$ERL+")":SYS262367,K,0,Q
  21. 20SYS262365:E.
  22. 21DEFPROCb(C,N,F$)
  23. 22F.T=0TON STEP4:READN$:IFN$="x" N$="2422023"
  24. 23C!T=EV.(F$+N$):N.:E.
  25. 24DEFPROCc:W=!K:H=K!4:!K=4:K!4=5
  26. 25K!8=11:K!12=12:K!16=-1:SYS49,K,K:M=K!8<<!K
  27. 26N=K!12<<K!4:K!4=5:K!8=W-34:K!12=H-34
  28. 27K!16=W+34:K!20=H+34:K!24=0:K!28=0:K!32=M+3
  29. 28K!36=N+3:SYS262352,,K:E.
  30. 29DEFPROCa(N$):SYS262380,-1,-1TOQ,,F
  31. 30IFF<X+I ERROR1,"Not enough memory"
  32. 31SYS262380,Q+X+I,-1:A%=Q+32768:B%=(A%+X)A.-4
  33. 32OS."CDIR "+N$:N$+=".":REP.READN
  34. 33IFN=0 READF$,T:OS."CDIR "+N$+F$:SYS8,4,N$+F$,,,,T
  35. 34IFN=1 PROCi EL.IFN=2 PROCh
  36. 35IFN=3 READL:J=FNd(L,0)
  37. 36U.N=-1:E.
  38. 37DEFPROCh:READF$,L,E,T,V:IFV Q=FNd(V,A%)
  39. 38SYS8,0,N$+F$,L,E,A%,A%+V:SYS8,4,N$+F$,,,,T:E.
  40. 39DEFPROCi:READF$,L,E,T,V:Q=FNd(V,A%)
  41. 40SYS8,0,N$+F$,L,E,B%,B%+USRJ:SYS8,4,N$+F$,,,,T:E.
  42. 41DEFFNd(L,Z):LOC.A%:IFZ=0DIMZ L+4
  43. 42Q=0:REP.READ$Y
  44. 43F.F=1TOLEN$Y S.5:A%=Y+F:Z!Q=USRC
  45. 44Q+=4:N.:U.Q>=L:=Z
  46. 45_3A0105C,5D02003,x,5D03002,2433023,0243192,5D02001,x
  47. 46_0242491,5D02000,x,0242491,5502001,x,0202194,1A0F00E
  48. 47_&4B534154,510,176,770,346,0,0,-1,&86000012,&1070207
  49. 48_0,0,48,260,256,&27000119,0,1,&10001,O,-1,20,1,0
  50. 49_74,260,182,&1700310B,U,S,20
  51. 51_752,752,UnAppComp,sDirectory,4096
  52. 52_3,92
  53. 53_"0v9pW[I9pW$9aRWp6uXXofm8X2MMVN^&VxWt3vXXrrH'XHsq2Y4S^WX"
  54. 54_"06E#X.#f@)*T4&ZZtVqWOqLB%DcuXX0V]WX<}<#X.#f@)#T4&ZLk_RW"
  55. 55_"Im<pW"
  56. 56_1,!Run,-5305,389711468,19,60
  57. 57_"2$VU1{Ag@2#g7(=<bvi*1.hK%y|on<rzeh:bQOR*G@Ah.[i{r4>2vX*"
  58. 58_"{vDg:d)$_;EguHQtMp##"
  59. 59_1,ReadMe,-185,389738937,3,434
  60. 60_"mAg@2#g7(=TDM860QL.5\dttRX\`a6cU2Z*~E-F<{Rf+=[P7h:GD1>P"
  61. 61_"CtT0<||8,=,j]27kl4T*DbGb;gL~X*@VvX*XT:+=#_D)P|f[:>RzW,="
  62. 62_"yX<%=Iu\J%2j3,=}Z8;6D(I/%.mK&>nVDT*>bte#'8T)PsyCk=GobK?"
  63. 63_"vg~[<+r{b;`'/K?+=3,=#w'?PtWca;i,^:>v<aZ*l7~b;svsB?n2+Z*"
  64. 64_"L%w+=+tdRPQ'&>P}uba;n9_yPDZO5$yq@+=(NzA#)Mt3$3+]$3dRw/%"
  65. 65_"nY#\;kPCg:Zl^^#bn#&-Rw2p<8$$l2N&Vs-co4Q>RJ@D;xT~X*_=13P"
  66. 66_"&~|M6wjff6'Xtg:]2|*=xw6h:,bGb;.]sq<r5-c#k0;;Cv?q<:hP(#="
  67. 67_"W<Vh:1W&M%DJDF%In:%>,0fEPOc5<:{[Fh:'I3q<go(ePoW[l=bkTn9"
  68. 68_"@{~g?g3Wl=f9SzPBR|[;NMb^*)zK)PK_:j=\{,_S*+MQ.<cyX-'`\^/"
  69. 69_"Y&3pP{o_h=>`U.4)aek=L])c;/fU]3a&}A=o~-=:p*^^/EEF9+"
  70. 70_1,UnAppComp,-1465,389704113,3,666
  71. 71_"\iEI#t?=7&L]K1'p^{+(dAg@2#g7(=P+9S%{L/n-ScSG,#{lS5.EMQ."
  72. 72_"lKx^,O.+e'wT2Z*px0k9j$hY*w[A':5Kf0<`2U3/0;K_(kQ&##vNz5X"
  73. 73_"o6ag#E<n.'sSvZY<T4&ZQ:p}@`3/w&+U-'#Ilm{O7~7_$+_\\-XBP|O"
  74. 74_"[2vfDPi|7P2Bbd.VsVHOC=u9#Q.K&483&##eUlv5lAng&Csu8#{i;HP"
  75. 75_"w<%8LOjA7L*bA7L^c<OHstMfD7PuVDs/))POSg|Ow-MP*?:w##c{m6@"
  76. 76_"s>3COk3iQ$}b\qWg4a<?t/=,3#'`9#O&*0$c'mK#k}%N*3OuH$?nz5#"
  77. 77_"C?`;Nv%###B,A##OF#~1O>mZ+D.f|AD;u71O-L<L\I###EU5;Ug?XN%"
  78. 78_"E##P%5?GM+u5KXWiVj3YP6WXXPBn#Xvq]?8`v^~WjW|iWv]#lN5{XSW"
  79. 79_"+-qbW\-~Z+?qMGX_XSy#oJj2P314Q#o2U&4<=t=0cGp$##Cu5#;au?%"
  80. 80_"CWIK#3G*4A7t$@%G`f5+qj2e&WxB%CL8uv#Gg[v#onkE$o:$L#KIlK#"
  81. 81_"s;L,3L|]z^QPDI.<1mnT|$LP'm9*F[.-qiSO>mZ+u'oQP{{:3Psjh##"
  82. 82_"0NOCP3X[='CG:BX{i^xWiOjmWNj]xW7OU_9$^@'X[pU_9LEQ81l}Y_9"
  83. 83_"xq+N#.BK^H,I&OHBnDtD,\]dCqNUcR&?xy4GTu/Pc<t,A16###Bp9hD"
  84. 84_"hK/%&UU5pW_df;Zz=PQYKe-6X}b\qWBHaXW6]iXWo_O9X.MMVNElm[Y"
  85. 85_"1_UZYSl~#XhZfTRK-,4Xu8Cv(a++u(Wv[9#Uv[9#Uv[9#cn\:#an\:#"
  86. 86_"%GD7PWVwQ'"
  87. 87_-1,Self extractor (C) 7th ARM Systems
  88.